Is it too late?  I worked out an equation for what I think you're
trying to get.  The radius depends on the angle A in a more
complicated way, but this seems to close up the gap.


#declare O_Ying=
union
{
    #declare R=0;
    #while (R<1.0001)
    #declare A=R*180;

        #declare X=2*cos(radians(A))/(-3+cos(radians(A)));
        #declare Y=0.0;
        #declare Z=2*sin(radians(A))/(-3+cos(radians(A)));

        sphere
        {
            <X,Y,Z>,(-1+cos(radians(A)))/(-3+cos(radians(A)))
        }

    #declare R=R+0.01;
    #end
}

#declare O_Yang=
object
{
    O_Ying
    rotate y*180
}


Adam C.

.......................

Paul Vanukoff wrote:

> I'm trying to create a ying/yang sort of image. Here is some source that
> defines the objects. On paper it seems like it would work, but when
> rendered, there is a nice gap between the two halves. I have messed around
> with different formulae, but can't get it right. Can anyone grok the formula
> for this?  :)
>
> // Source //
>
> #declare O_Ying=
> union
> {
>     #declare R=0;
>     #while (R<1)
>     #declare A=R*180;
>
>         #declare X=1.5*cos(radians(A))+0.5;
>         #declare Y=0.0;
>         #declare Z=1.5*sin(radians(A));
>
>         sphere
>         {
>             <X,Y,Z>,R
>         }
>
>     #declare R=R+0.01;
>     #end
> }
>
> #declare O_Yang=
> object
> {
>     O_Ying
>     rotate y*180
> }
>
> // End Source //
>
> --
> Paul Vanukoff
> van### [at] primenetcom

Post a reply to this message